home *** CD-ROM | disk | FTP | other *** search
/ Cyber Strip Poker / Cyber Strip Poker.rar / IMAGE.img / poker1.dir / 00298_Script_298 < prev    next >
Text File  |  1995-08-14  |  1KB  |  55 lines
  1. global level, ybank, dbank, hardamount
  2. if dbank < 0 then
  3.   set level = level + 1
  4.   if level=-2 then 
  5.     alert "Put Your Pants Back On"
  6.     go "ywinner"
  7.     exit
  8.   end if
  9.   if level=-1 then
  10.     alert "Put Your Shirt Back On"
  11.     go "ywinner"
  12.     exit
  13.   end if
  14.   if level=0 then 
  15.     alert "You Can Put YOur Shoes And Socks Back On"
  16.     go "ywinner"
  17.     exit
  18.   end if
  19.   if level=1 then go "TopOff"
  20.   if level=2 then go "BottomOff"
  21.   if level=3 then go "BraOff"
  22.   if level=4 then go "FinalStrip"
  23. end if
  24.  
  25. if ybank < 0 then 
  26.   set level = level - 1
  27.   if level=2 then go "BraOn"
  28.   if level=1 then go "BottomOn"
  29.   if level=0 then go "TopOn"
  30.   if level=-1 then
  31.     alert "Take Off Your Shoes & Socks, Loser!!!"
  32.     puppetsound "Take it Off"
  33.     go "dwinner"
  34.     exit
  35.   end if  
  36.   if level=-2 then
  37.     alert "Take Off Your Shirtà I've Got You On The Run!!!"
  38.     puppetsound "Take it Off" 
  39.     go "dwinner"
  40.     exit
  41.   end if  
  42.   if level=-3 then 
  43.     alert "Take Off Your Pantsà You're on Your Way To Naked Hell!!!"
  44.     puppetsound "Take it Off"
  45.     go "dwinner"
  46.     exit
  47.   end if  
  48.   if level=-4 then 
  49.     alert "Take Off Your Underwearà You Lose Sucker!!!"
  50.     puppetsound "Take it Off"
  51.     go to frame 1
  52.     exit
  53.   end if
  54. end if
  55.